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MODULE FLOW CHARTS AND FORTRAN LISTS 


FLOW CHART USAGE 


The automatically generated computer program flow charts (AUTOFLOW) 
presented in this document include a table of contents, flow charts, and 
FORTRAN lists of all routines in the module. The 80-column card lists are 
sequenced and grouped by routine. 


Because the AUTOFLOW system used is IEM-oriented, the functions of the 
BUFFERIN and BUFFEROUT statements are not recognized, but these statements 
appear in proper order in note boxes. Also, the PROGRAM nam does not appear 
on the main program, and library routines READMS and WRITMS are listed as 
undefined external references. 


CROSS-REFERENCE LIST 


The AUTOFLOW table of contents which precedes the flow charts and FORTRAN 
lists serves to cross reference the latter two. This table lists the following 
from left to right: 


* The card identification from colums 7. through 80 of this card, or card 
sequence number. When sequence number is used in place of card identi- 
fication, it is enclosed in parentheses. 

* The page and box number whére this card is displayed in a flow chart. 

° The FORTRAN statement number from colums 1 through 5 of this card. 


* The card identification(s) or sequence number(s) of the card(s) refer- 
ring to this card (repeated as required). 


* The pages and box numbers where the cards referring to this card are 
displayed in a flow chart (repeated as required). 


FLOW CHARTS 


The flow charts produced by AUTOFLOW use USASI conventional symbols. 
Since the flow charts are mechanically drawn from the program source deck, 
there are no omissions or vague generalizations about the processing within 
the boxes. 
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Every box on each page is uniquely numbered and may be referred to from 
elsewhere in the program. The source of a reference to a box will be indicated 
by showing the page and box number. If the number is followed by an asterisk, 
there are multiple references to this point, and ihe others may be found by 
using the cross-reference list. 


mal 


The most-often-used symbol is the decision box. Like all boxes, its box 
number is above and to the right of the box. Its FORTRAN statement number is 
above and to the left of the box. The decision choices for the paths are 
printed. 


The unconditional transfer connecter has its page number destination 
printed above or to the left of the box number destination within the connecter. 
If there is a FORTRAN statement number at the destination, it is printed helow 


the connecter. 
© ct 


The exit box example shows a connecter from page 9, box 15. 


“aS 


The subroutine call box includes the calling sequence. The page and box 
numbers of the flow chart of the called subroutine are shown on the left-hand 
side of the box. The page number is above the box number. 
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The note box encloses comments of a functional nature, 


re 


as differentiated from the 21 colum comments, which are left justified without 
a box, that show the comment cards included in the FORTRAN deck. 


The process box is used to enclose PORTRAN arithmetic statements. 


Fa 
Input and output are shown as communicating with a device. 
follows, if appropriate: 


The list used 


The computed Gf T~ becomes a branch table showing the page and box number 


of each of the ordered branches, 
Cid 
| ee” | 
8s. 82 


The column connecters and initial connecters are the only boxes without 
external box numbers. The function of the initial connecter is always clear, 
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but the label given is the symbol in the next FORTRAN card, which is often 
blank. 


ce I 


The column connecter identifies the page and box number to which it 
connects. 


oy 
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Bn Oi er = Sewn - KEEN? 
toe 
SSO 
100 teeter! 
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BOUT LISTING MUTOFLOH CURT GET - BEEP = DATA MAROEMENT MODULE 


eave comrents 
¢ 
sani 6,20) 
20 FORBAT 1 10h ORY 21He* PRICE - P14) e077 
' OOH DATA PUMACEMENT ¢¢° OPERATIONAL LEIOHT EMPTY vee 7 


0 0%, BBHTOTA AD MAJOR COMPONANT BREAK DORN // 20x, 
2 UOTOTA. WT. GX, DAE YX, GUSEL ADE GX, WHUIND 2x, 
3 U@OGRITONTA BX, DNERTICA LIM ID MACELLE 1th OB NACELLE 
RIVE IG, 30) (DATING DVT (NSO), (TCD), 10d ,6t, tet 46) 

We FRU (Dt WING 12K, IN. ZIM HORIZONTAL GXLGFIT.2 70M VERTICAL 
0 QMO UL .1 ABH GOOY 12K,GF 11.0 7106 MAIN OEAR Px, 11.1 / 
2 1 OO MR XK.) 719 SURF. CONTROL 3x,0F1t.9 7 
3 UDe OO. CECTION VX.OF 11.1 417 OTHER STMCTURE GFil.1 7 
© Ot OOIMES Ox, I1.1 717 ACCESSORY G BOK Wil. / 
S (AIS STRUCTURE SX. ID.1 71H AIS ACT OPEC Ot. 7 
@ Gt Cxevast OX. 11.1 7 1 CO. AO ORNS. II.) / 
? Cat CUBE SYSTEM SK.OF 11.1 7 12H FULL SYSTEM Sx eri.) 7 
@ 1M OOwe CONTALS . Hil. 7 
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C WLR 13K.OFEN.1 7 eH MISCELLANEOUS 34.07 11.1 7 SH GUNS 12x, 
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100 FORMAT (IMI .OBK,21He* PRICKE - 1PIN6I e077 
1 ‘WH DATA MANAGEPENT -- EXPENDABLE USEFUL LOAD //4x, 
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VIG FORMAT ( 13K, IGOUSELACE FLEL Tank, 12, %, W223 
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10 CONTINUE 
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IF (ODT 120) 50,50.95 
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11% CONTIN 
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116 CONTINUE 
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IF (DATS¢2201 150,190,120 
120 S1G%) © DATSI22) 9DATS123)/0617) EOUrBO) 
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1 SIMIDATSI20) 900 169) 
IF CDATS(20)) 150,190,922 
GUTED PYLON 
122 $185) © DATS( 24) DATS 1251/0157) EQUI80) 
Bt 7S) © DATS112) © DATDINCD+IOD + DATSi25)/0121¢ 
4 SIN(OATS120) 901160) 
OOM ros 
130 S186) © OCBT116)¢CQNie1) 
$C 7B) = DATSI12Z) © DATOINCD? 10) 
SUM EMOIME SECTION 


133 SiWS) © SIGTPOATSI I) © Si@VIDi2) © S1GS Oe) » S1es> 


UFCDATS¢1) - Of20) 160,160,165 


108 SVG) © SIGS $12) $1DaTSib3) © Si73d) © SiMe i2re 


1 IDATSIE3) © GePerd © StMBDCIDATSEI3) © Si 7BId 
UCOATSCLID 162,162, 10% 
162 Stu? = SiGt> © S162) 


St0Bd © SIGIPSCOATSI IS) © SI7IID © SiG2:e1DaTSci3s © Si 7s 


@ To 160 
1@e Gcv7) = SiGi> © Or2resrez2s 


SIWB? © S(GIIOCOATSCE ED © SPI © SiS2)eH2)e(DaTseid» © Sc7Zd) 


@ 10 160 


166 SING) © GIGI) D2) o(OATS( 13) © OATSCIG) © SI7TBIDI2) « 
0 SCHod D2 eOarSii3) © SiMe? © SiO Dik eiOassi iG) ¢ $17) ¢ 


2B SOS) eC(OATSI13) © DATSI1G?2 O12) + $1 7B)? 
SINT) © StI) © S12) Oarsriy 


BieG) ~ SIGUICCOATSIIS) © OATSCIGI D2) © SCTE? « 
9 S12) OATS612¢¢ (OATSC13) © GATS1162)/012) © ScFeoe 


100 IF (Si45)> 190,190,182 
1@2 $1187) © Ges) 

BIT) © Giwsi7$ies) 
198 IF (S(~7>> 200,200,102 
102 Si 1eB) © Sce7) 

S111G) © $INO27S107) 


TEST ON MID 
200 IF COOL 1D) 201,201,300 
BO) GIRO) © AAT 100D6 11) C001 12) COD! 149) 
BRI) = CONDI S) $$t29) M6 31d eokQUIEe? 
SOR) © OSPISt SoC Ques) 
S123) © Clair ofQUIee) 
BiH) © (OMA) / (COSI DISC) D1 1G) 1 9eR)) eof Quigs) 


QURS) = CORR 1B) Os 18) 906 10) COS 1d 50) 9D 18) 0° EQUITIES) 


TEST Ge TAPER RATIO 
OF ORS) 222.222 ,.2 
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seen CONTENTS eeee 
c TAPER RATIO © 8.0 SET EQUA 10 6.00) 
O02 GFR) © OVE DLie 
@ To 228 


Of $128) = OO) 
BFS $128) © G129s9fQU087) 
Bat © Or 
1F 10D143)) 208.206 200 
c LOO OL AR ON WING 
2 6127) © Cais) 
208 $120) © OWI? 
WOO art 210,210,208 
¢€ VARIIGLE BECP WIND 
208 S12B) © CQUOT! - EQUIBO) Geet 3110 MiNS? 
BIO BE1OLd © 11211 OSt22) SSE s 0G Pes oS 289 /5129) S127) OS 1207 
1 CQUui@leCauree: 
BIEEED © Cede) © 1CQOT) - D123) seOveatews 


WORIZONTAL TAIL 
BOO IF (OOMTI20) 302.302.4500 
BO2 $130) = AA 1G00611) ,GOD112) ,GODI IN) 
BLBLD © MOOI ES: BO Oe Fd ook Gui Ge? 
S032) © OF ISNeTQUIM) 
$133) © Owiereotqu:g6) 
SOPOD © LOVME 7) 1COS (O23) Ot B11 eee eee QUIT) 
SUNS) = (ODM 12) 9D 1039110) /COSI OVNI 23) Dt 16) 1) "EQUI! 


c TEST ON TAPER RATIO 
UF (OWH161) 30%, 304, 306 
¢ TAPER RATIO © 0.0 SET EQUM 10 0 00! 
We $137) © Orir/O11s) 
00 To 308 


306 S137) © Owe: 
2OB S13B) © S137 eC QUI eR 
BULORd © SCHL POS B21 OSC 33) St od LQ 1001/51 F535 756 3B) EQUI IOI) 
SEVIS) © Ove? © (EQUI1O2) - D123") eOw 25) 


c MATICM Tale 
900 IF (O0NTI3)) 402,402,450 
O02 $130) © MAKIIGOOIIL) GODII2! GOOEIN?) 
SBI = (OODIT S190 DISD eeE QUI IOs) 
$192) = OW ISHQ) 
S133) © OViL efQuI 105) 
Sted © LODVI2171COSI OW! 22) 901 16) 18921) * LOU 106) 
SUVS) © 1ODVE 12) 901100 O10 /COS(OWi 22) 90! 169) SE QUIT) 
¢ TEST ON TAPLA RATIO 
1F SQOVLEI) 40% 40% 906, 
¢ TaPTR RATIO © 00 SET EQuM 10 0 001 
Oe S137) © OLLI /OCIe 
00 TO »o8 
408 $137) © COWIE) 
608 $135) © Si37eT Qui 108) 
QULORd © CSCS) PSL B21 eS FF) OSs Pod $1 WSS 1 HS) CQue OBE TOU tore 
iewel 
StLid) © wider © 1eQurlith - O23 ewes? 
¢ LANDING OF aR 
090 IF (OONTIS)) 460,460,492 
eR? If (GONT#6)) 480,460,500 
G0 $1301 © O12) 
Sidi) © WOO20) 292/012) 0128) /G0D121 D1 Ie? 
Bidz) © SiO eco? 
S(33) © SeS1 GoD.) 
IIGIBZ) = S133) 42,070,070 
¢ LOG CRITICA 
OO? G1) © SISiregauiiial 
St ¢ WOISseCQUiIS) 
00 19 “ey 
WI GiB) © SFO eo ayei2s 
BIW) © OOO breotaucns3? 
OO GMB) © (OOO2T /DeiBireetauiiies 
UF COOMT 151) ¥O2, 482.490 
OE GILOS) © COU EIS Si Bol eS t FS2 Ss ISH eOOOres - GOO27HI, 
i] (000198) - GOO1271) 
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91518) © eI) 
WOR IF CONT ISrt VER. WE2.908 
RE G11GB) © COU EIS) Gs Pel oS 1 FS) G1 BBs 10ND aS! - GDOIDI7 
i] (000188) - GOD127) 
81110) ¢ eoIe7) 
¢€ 
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900 iF atest 14d) SO2 902.608 
BOE S138) © WARI10000 1) 000152) .ODDI Ie)! 
GBs © aPOTL Meer eeotquii tes 
BURR) © 690900901311 OOO Bre gQuitis) 
GB. © CMB ed - Ovesred) 70612209 CO 120) 
BiPed © CEMTIOD = MECLIDZETOTEIGs © FOFSSr HDs regauesars 
81) © Om1S) eotauciaz) 
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